home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / MoreHardware / AmigaTemp.lha / AmigaTemp / ARexxScr / Reset.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-09-08  |  1.2 KB  |  41 lines
  1. /* AmigaTemp V1.2 ARexx                      */
  2. /* Resets all max/min temperatures and dates */
  3.  
  4. /* Start */
  5. st = Show(P, 'AmigaTemp')              /* Is program running? */
  6. if st == 0 then                        /* No... */
  7. do
  8.    Address COMMAND                     
  9.    
  10.    'AmigaTemp CX_POPUP=NO'            /* Start AmigaTemp. Don't POPUP */
  11.    if rc > 0 then do                   /* Program not found... */
  12.       Say "Can't start AmigaTemp"
  13.       exit
  14.    end   
  15.    
  16.    do 2 while ~Show(P, 'AmigaTemp')    /* Wait until program has started or at least 20 sek */
  17.       'waitforport AmigaTemp'
  18.    end
  19.    
  20.    if ~Show(P, 'AmigaTemp') then do    /* Something is wrong... */
  21.       Say "No contact with ARexx Port"
  22.       exit
  23.    end
  24. end   
  25.  
  26. /* Main */
  27. Options RESULTS                        /* Retrive the string result field */
  28. Address 'AmigaTemp'                    /* Portname for AmigaTemp (Case sensitive) */
  29.  
  30. 'Version'; Say result                  /* Write name and version */
  31.  
  32. 'NumSensor'; numsensor = result        /* Number Of Sensors */
  33.  
  34. do i=1 to numsensor
  35.    'Reset' i                           /* Reset max/min temperature and date */
  36. end i
  37.  
  38. if st == 0 then 'Quit'                 /* Quit AmigaTemp if we started it */
  39.  
  40.  
  41.